setwd("/home1/30/jc227089/Quoll_model/Random_outputs")

coll<-c()
for (i in 1:10){
	load(paste("extime", i, ".RData", sep=""))
	coll<-rbind(coll, extime)
	rm(extime)	
}

save(coll, file="Extime and habsize_long.RData")



